10 POKE56,PEEK(56)-1:POKE52,PEEK(56):CLR
20 PG=PEEK(56):ML=PG*256+60
30 FORX=MLTOML+154:READD:T=T+D:POKEX,D:NEXT
40 IFT<>16251 THENPRINT"ERROR IN DATA...":END
60 POKEML+4,PG:POKEML+10,PG:POKEML+16,PG
70 POKEML+20,PG:POKEML+32,PG:POKEML+38,PG
80 POKEML+141,PG
89 PRINT"[147]**************************************"
90 SYSML:PRINT"** 64 PERFECT TYPIST IS NOW ACTIVE  **"
100 PRINT"** SYS"ML"=ON     SYS"ML+30"=OFF **"
101 PRINT"**************************************"
110 DATA 173,005,003,201,003,208,001,096
120 DATA 141,105,003,173,004,003,141,104
130 DATA 003,162,103,160,003,142,004,003
140 DATA 140,005,003,096,234,234,173,104
150 DATA 003,141,004,003,173,105,003,141
160 DATA 005,003,096,032,124,165,132,011
170 DATA 162,000,142,240,003,142,241,003
180 DATA 189,000,002,240,051,201,032,208
190 DATA 004,164,212,240,040,201,034,208
200 DATA 008,072,165,212,073,001,133,212
210 DATA 104,072,238,241,003,173,241,003
220 DATA 041,007,168,104,024,072,024,104
230 DATA 016,001,056,042,136,016,246,109
240 DATA 240,003,141,240,003,232,208,200
250 DATA 173,240,003,024,101,020,024,101
260 DATA 021,141,240,003,169,042,032,210
270 DATA 255,169,000,174,240,003,032,205
280 DATA 189,162,003,189,211,003,032,210
290 DATA 255,202,016,247,164,011,096,145
300 DATA 013,032,032
500 POKE828,PEEK(65):POKE829,PEEK(66)
510 POKE56,PEEK(56)-1:POKE52,PEEK(56):CLR
520 IFPEEK(644)-PEEK(56)<2GOTO510
530 POKE65,PEEK(828):POKE66,PEEK(829)
540 PG=PEEK(56):ML=PG*256
550 FORX=MLTOML+152:READZ:POKEX,Z:NEXT
560 FORX=ML+247TOML+312:READZ:POKEX,Z:NEXT
570 FORX=1TO16:READZ:POKEML+Z,PG:NEXT
580 POKEML+13,PG+1:POKEML+286,PG+1
590 PRINT" ";:FORX=1TO38:PRINT"*";:NEXT:PRINT
600 PRINT" **  C-64 KEYPAD NOW READY FOR USE   **"
610 PRINT" **  USE SYS"ML+115"TO RESTART WEDGE  **"
620 PRINT" ";:FORX=1TO38:PRINT"*";:NEXT:PRINT
630 SYSML+115:POKE2,10:NEW
640 DATA173,141,2,201,6,240,14,201
650 DATA5,208,3,76,,193,169,0
660 DATA141,103,192,240,27,173,103,192
670 DATA208,76,238,103,192,173,104,192
680 DATA73,1,141,104,192,173,179,192
690 DATA73,28,141,179,192,76,77,192
700 DATA164,198,240,50,185,118,2,162
710 DATA9,221,105,192,240,4,202,16
720 DATA248,96,173,104,192,240,31,138
730 DATA9,48,153,118,2,169,15,141
740 DATA24,212,169,65,141,18,212,160
750 DATA32,136,208,253,169,64,141,18
760 DATA212,169,,141,24,212,96,0
770 DATA0,77,74,75,76,85,73,79
780 DATA55,56,57,162,,142,104,192
790 DATA189,49,234,201,104,240,6,157
800 DATA167,192,232,208,243,173,21,3
810 DATA201,234,208,12,120,169,192,141
820 DATA21,3,169,167,141,20,3,88,96
830 DATA32,,192,104,168,104,170,104,64
840 DATA166,211,240,1,96,174,103,192
850 DATA208,250,238,103,192,24,165,20
860 DATA101,2,170,165,21,105,,32
870 DATA205,189,162,,189,53,193,32
880 DATA210,255,224,3,240,3,232,208
890 DATA243,165,198,208,7,230,198,169
900 DATA32,141,119,2,96,68,65,84,65
910 DATA18,23,28,31,36,39,44,47
920 DATA59,68,119,129,142,249,263,268
930 DATA38,170,43,170,80,14,81,144
940 DATA83,200,85,13,86,144,87,96
950 DATA95,13,96,144,100,14,101,144
960 DATA121,191,128,158,147,158,281,221
970 DATA25,66,51,40,70,21